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CP/M 



001D 
0016 
0001 
0003 
&0001 
A 0001 
0003 
0014 
0015 



MACRO ASSEM 2.0 #001 

TITLE 



*** Cbios For CP/M Ver. 2.2 *** 
'*** Cbios For CP/M Ver. 2.2 ***' 



; CBIOS REVISION NUMBER 2.9 

;CP/M REVISION NUMBER 2.2 

;COSOLE PORT ( 1 = PI , 2 = P2 , 3 = P3 ) 

; PRINTER PORT (1 « Pi, 2 = P2, 3 = P3) 

;SET TO NUMBER OF HARD DISKS 

;SET TO NUMBER OF FLOPPIES 

; DEFAULT LOGICAL DISKS PER DRIVE 

;HARD DISK TYPE 

; SECTORS PER TRACK 

*************************************************************** 



REVNUM 


EQU 


29 


CPMREV 


EQU 


22 


CONGRP 


EQU 


1 


LSTGRP 


EQU 


3 


MAXHD 


EQU 


1 


MAXFLOP 


EQU 


1 


LOGDSK 


EQU 


3 


MREV 


EQU 


20 


HDSPT 


EQU 


21 



* THE FOLLOWING EQUATES RELATE THE MORROW DESIGNS 2D 

* CONTROLLER. IF THE CONTROLLER IS NON STANDARD (0F800H) 

* ONLY THE ORIGIN EQUATE NEED BE CHANGED. 
* 



* 
* 
* 
* 



F800 
FC00 
F800 
F803 
F806 
F809 
F80C 
F80F 
F812 
F815 
F818 
F81B 
F821 
F827 
F82A 
F82D 
F830 
0008 
FBF8 
FBF9 
FBFC 
00D0 



***************************************************************** 



DISK JOCKEY 2D RAM ADDRESS 

DISK JOCKEY 2D INITIALIZATION 

DISK JOCKEY 2D CHARACTER INPUT RpUTINE 

DISK JOCKEY 2D CHARACTER OUTPUT ROUTINE 

DISK JOCKEY 2D TRACK ZERO SEEK 

DISK JOCKEY 2D TRACK SEEK ROUTINE 

DISK JOCKEY 2D SET SECTOR ROUTINE 

DISK JOCKEY 2D SET DMA ADDRESS 

DISK JOCKEY 2D READ ROUTINE 

DISK JOCKEY 2D WRITE ROUTINE 

DISK JOCKEY 2D SELECT DRIVE ROUTINE 

DISK JOCKEY 2D TERMINAL STATUS ROUTINE 

DISK JOCKEY 2D STATUS ROUTINE 

DISK JOCKEY 2D ERROR, FLASH LED 

DISK JOCKEY 2D SET DENSITY ROUTINE 

DISK JOCKEY 2D SET SIDE ROUTINE 

SIDE BIT FROM CONTROLLER 

START OF I/O REGISTERS 



***************************************************************** 

* *i 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. * 

* * 

***************************************************************** 



ORIGIN 


EQU 


0F800H 


DJRAM 


EQU 


ORIGIN+400H 


D J BOOT 


EQU 


ORIGIN 


DJCIN 


EQU 


0RIGIN+3H 


DJCOUT 


EQU 


ORIGIN+6H 


D J HOME 


EQU 


ORIGIN+9H 


DJTRK 


EQU 


ORIGIN+0CH 


DJSEC 


EQU 


ORIGIN+0FH 


DJDMA 


EQU 


ORIGIN+012H 


D J READ 


EQU 


0RIGIN+15H 


DJWRITE 


EQU 


0RIGIN+18H 


DJSEL 


EQU 


ORIGIN+1BH 


DJTSTAT 


EQU 


0RIGIN+21H 


D J STAT 


EQU 


ORIGIN+27H 


DJERR 


EQU 


0RIGIN+2AH 


DJDEN 


EQU 


0RIGIN+2DH 


DJSIDE 


EQU 


ORIGIN+30H 


DBLSID 


EQU 


8 


10 


EQU 


ORIGIN+3F8H 


DREG 


EQU 


10+ 1 


CMDREG 


EQU 


10+4 


CLRCMD 


EQU 


0D0H 



0050 
0050 
0050 
0053 
0052 
0051 
0051 



HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDDATA 


EQU 


HDORG+3 


HDFUNC 


EQU 


HDORG+2 


HDCMND 


EQU 


HDORG+1 


HDRESLT 


EQU 


HDORG+1 



;HARD DISK CONTROLLER ORIGIN 

;HARD DISK STATUS 

;HARD DISK CONTROL 

;HARD DISK DATA 

;HARD DISK FUNCTION 

;HARD DISK COMMAND 

;HARD DISK RESULT 



CP/M macro ASSEM 2.0 



#002 



*** Cbios For CP/M Ver. 2.2 **' 



0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
000B 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 

0048 
004F 
0048 
0049 
0049 
004A 
004B 
004D 
004E 
0048 
0048 
0080 
0020 
0010 
0020 
0001 
0001 
0002 
0004 



RETRY 


EQU 


2 ; 


TKZERO 


EQU 


1 


OP DONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


8 


WFAULT 


EQU 


10H ; 


DRVRDY 


EQU 


20H ; 


INDEX 


EQU 


40H ; 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH i 


HDRLEN 


EQU 


4 ; 


SECLEN 


EQU 


512 ; 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 


; 


ISBUFF 


EQU 


8 ; 


RSECT 


EQU 


1 


WSECT 


EQU 


5 


MBASE 


EQU 


48H 


GRPSEL 


EQU 


MBASE+7 ; 


DLL 


EQU 


MBASE 


DLM 


EQU 


MBASE+1 - 


IER 


EQU 


MBASE+1 ; 


CLK 


EQU 


MBASE+2 ; 


LCR 


EQU 


MBASE+3 s 


LSR 


EQU 


MBASE+5 ' ; 


MSR 


EQU 


MBASE+6 


RBR 


EQU 


MBASE 


THR 


EQU 


MBASE 


DLAB 


EQU 


80H ; 


THRE 


EQU 


20H 


CTS 


EQU 


10H ; 


DSR 


EQU 


20H 


DR 


EQU 


1 ; 


WLS0 


EQU 


1 


WLS1 


EQU 


2 


STB 


EQU 


4 r 



RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 

BASE ADDRESS OF MULTI I/O OR DECISION I 

GROUP SELECT PORT 

DIVISOR (LSB) 

DIVISOR (MSB) 

INTERUPT ENABLE REGISTER 

WB14 PRINTER SELECT PORT 

LINE CONTROL REGISTER i 

LINE STATUS REGISTER 



READ DATA BUFFER 
TRANMITTER DATA BUFFER 
DIVISOR LATCH ACCESS BIT 
STATUS LINE THRE BIT 
CLEAR TO SEND 
DATA SET READY 
LINE STATUS DR BIT 
WORD LENGTH SELECT BIT 
WORD LENGTH SELECT BIT 1 



# 






FOR 8 BIT WORD 



STOP BIT COUNT - 2 STOP BITS 



DEFINE MULTI i/O PORTS ADDRESSES FOR GROUP ZERO 



0000 
0048 
0049 
0049 

0048 
0049 



0001 = 



GZERO 


EQU 





DAISY0 


EQU 


MBASE 


DAISY1 


EQU 


MBASE+1 


SENSESW 


EQU 


MBASE+1 


DAISI0 


EQU 


MBASE 


DAISI1 


EQU 


MBASE+1 



; DEFINE GROUP SELECT BITS 
S0 EQU 01 H 



; DAISY INPUT PORTS 

; SENSE SWITCHES 

; FOR DECISION I AND MULTI I/O. 
; THESE TWO ARE THE DECISION I PORTS 



; GROUP NUMBER (0-3) 



• 



P/M MACRO 


ASSEM 2.0 


#003 


*** 


0002 - 


SI 


EQU 


02H 


0003 = 


SMASK 


EQU 


03H 


0004 = 


BANK 


EQU 


04H 


0008 - 


EN INT 


EQU 


08H 


0010 = 


RESTOR 


EQU 


10H 


0020 = 


DENABLE 


EQU 


20H 



*** Cbios For CP/M Ver . 2.2 *** 



; PRINTER RESTORE ON MULTI I/O 
;DRIVER ENABLE ON MULTI I/O 

************************************************************ 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 

***************************************************************** 

MEMORY SIZE OF TARGET CP/M 

MEMORY OFFSET FROM 20K SYSTEM 

CONSOLE COMMAND PROCESSOR 

BDOS ADDRESS 

CBIOS ADDRESS 

OFFSET FOR SYSGEN 

ADDRESS OF LAST LOGGED DISK 

DEFAULT BUFFER ADDRESS 

TRANSIENT MEMORY 

INITIAL IOBYTE 

IOBYTE LOCATION 

WARM BOOT JUMP ADDRESS 

BDOS ENTRY JUMP ADDRESS 

***************************************************************** 

* *; 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. *i 

* *! 

***************************************************************** 



003E 


= 


MSIZE 


EQU 


62 


A800 


= 


BIAS 


EQU 


(MSIZE-20)*1024 


CD00 


= 


CCP 


EQU 


2500H+BIAS 


D500 


= 


BDOS 


EQU 


CCP+800H 


E300 


= 


BIOS 


EQU 


CCP+1600H 


3E00 


= 


OFFSETC 


EQU 


2100H-BIOS 


0004 


= 


CDISK 


EQU 


4 


0080 


= 


BUFF 


EQU 


80 H 


0100 


= 


TPA 


EQU 


100H 


00C0 


= 


INTIOBY 


EQU 


192 


0003 


= 


IOBYTE 


EQU 


3 


0000 


= 


WBOT 


EQU 





0005 


= 


ENTRY 


EQU 


5 






0003 = 

0006 = 
000A = 
00 0D = 
000A = 
001A = 



AETX EQU 

AACK EQU 

ACR EQU 

ALF EQU 

RETRIES EQU 

CLEAR EQU 



3 

6 

'J'-64 

'M'-64 

10 

•Z'-64 



;ETX CHARACTER 

;ACK CHARACTER 

; CARRIAGE RETURN j 

;LINE FEED 

;MAX RETRIES ON DISK I/O BEFORE ERROR 

; CLEAR SCREEN ON AN ADM 3 ; 



*****************************************************************] 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. - * 

* * 
***************************************************************** 



E300 



ORG 



BIOS 



E300 


C3BFEB 




JMP 


CBOOT 


E303 


C3D8E4 


WBOOTE 


JMP 


WBOOT 


E306 


C33BE3 




JMP 


CONST 



; CBIOS STARTING ADDRESS 

;COLD BOOT ENTRY POINT 
;WARM BOOT ENTRY POINT 
; CONSOLE STATUS ROUTINE 



• 
• 



CP/M MACRO ASSEM 2.0 



#004 



*** Cbios For CP/M Ver . 2.2 *** 



E309 


C347E3 




JMP 


E30C 


C35CE3 




JMP 


E30F 


C37CE3 




JMP 


E312 


C371E3 




JMP 


E315 


C367E3 




JMP 


E318 


C323E5 




JMP 


E31B 


C365E5 




JMP 


E31E 


C325E5 




JMP 


E321 


C317E5 




JMP 


E324 


C31DE5 




JMP 


E327 


C3A4E6 




JMP 


E32A 


C39DE6 




JMP 


E32D 


C387E3 




JMP 


E330 


C32AE5 




JMP 


E333 


C31BF8 


DJDRV 


JMP 


E336 


0600 


DEFCON 


DW 


E338 


0C00 


DEFLST 


DW 


E33A 


00 


GROUP 


DB 



CONIN 

CONOUT 

LIST 

PUNCH 

READER 

HOME 

SETDRV 

SETTRK 

SETSEC 

SETDMA 

READ 

WRITE 

LISTST 

SECTRAN 

DJSEL 



(12 







CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 

HOOKUP FOR SINGLE.COM PROGRAM 

.•CONSOLE BAUD RATE 

; PRINTER BAUD RATE 

; GROUP BYTE 



y 



***************************************************************** 



* 
TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 
BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 
I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 
IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 
THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 
EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 
THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

CHANGE THE ENTRIES IN THE TABLES. * 

* 

***************************************************************** 









F803 = 

F806 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



; INPUT FROM THE DISK JOCKEY 2D 
; OUTPUT TO THE DISK JOCKEY 2D 



# 



E33B 21B5E3 
E33E C34DE3 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 
***************************************************************** 



CONST 



LXI 
JMP 



H,CSTBLE 

C0NIN1 



; BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 









CP/M MACRO ASSEM 2.0 #005 *** Cbios For CP/M Ver . 2.2 *** ! 

***************************************************************** 



E341 21BDE3 
E344 C36AE3 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



; BEGINNING OF READER STATUS TABLE 






E347 CD17E7 
E34A 218DE3 



E34D 3A0300 
E350 17 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE . * 

* * 
***************************************************************** 



CONIN 



CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN , CONOUT, AND CONST. 



CON INI LDA 
RAL 



IOBYTE 






* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 



E351 E606 SELDEV ANI 


6H 


E353 1600 


MVI 


D,0 


E355 5F 


MOV 


E,A 


E356 19 


DAD 


D 


E357 7E 


MOV 


A,M 


E358 23 


INX 


H 


E359 66 


MOV 


H,M 


E35A 6F 


MOV 


L,A 


E35B E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE ! 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE 1 

***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 
*****************************************************************! 



E35C C5 
E35D CD17E7 
E360 CI 
E361 2195E3 
E364 C34DE3 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H,COTBLE 

JMP CONIN1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

; BEGINNING OF THE CHARACTER OUT TABLE 

;DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 



CP/M MACRO ASSEM 2.0 



#006 



r ** Cbios For CP/M Ver. 2.2 *** 



E367 21ADE3 



E36A 3A0300 



* *: 

***************************************************************** 



READER LXI 



H.RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CS READER. 
* 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 
* 



• 



E36D IF 
E36E C351E3 



READR1 RAR 

JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * : 

* FROM BITS 4&5 OF IOBYTE. * 

* * 

*****************************************************************, 



E371 21A5E3 
E374 3A0300 



PUNCH LXI 
LDA 



H , PTBLE 
IOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 



E377 IF 
E378 IF 
E379 C36DE3 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 
***************************************************************** 






E37C 219DE3 
E37F 3A0300 
E382 IF 
E383 IF 
E384 C377E3 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 






CP/M MACRO ASSEM 2.0 



#007 



*** Cbios For CP/M Ver . 2.2 *** 



E387 21C5E3 
E38A C37FE3 



LISTST LXI 
JMP 



H.LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

***************************************************************** 



# 

m 







* 
* 


CONSOLE INPUT 


TABLE 


E38D 


4EE4 


CITBLE 


DW 


MIOIN 


E38F 


0CE4 






DW 


CICRT 


E391 


F7E3 






DW 


CIUC1 


E393 


03F3 






DW 


CITTY 



INPUT FROM I/O MASTER 

INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM SWBD PARALLEL PORT 4 

INPUT FROM TTY (CURRENTLY INPUT FROM 
DISK JOCKEY 2D) 







**£.. 






m 






* 
* 


CONSOLE OUTPUT TABLE 


^F 


E395 


&1E4 


COTBLE 


DW 


MIOOUT -, 


• 


E397 


31E4 






DW 


COCRT ) 


• 


E399 


31E4 






DW 


cocrt -;?• 


• 


E39B 


06F8 






DW 


COTTY */ 


W 






* 

* 


LIST 


DEVICE 


TABLE 


• 






* 










E39D 


06F8 


LTBLE 


DW 


COTTY 


• 


E39F 


3CE4 






DW 


COPTR 


• 


E3A1 


CDE3 






DW 


COLPT 




E3A3 


D8E3 






DW 


COUL1 



OUTPUT TO I/O MASTER 
OUTPUT TO CRT 
OUTPUT TO CRT 







OUTPUT TO TTY (CURRENTLY OUTPUT TO <S:=::: 
DISK JOCKEY 2D) 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT I) 



ACT Od u 



\i» rt .» **^ 



QOC & T 



Oi 







* PUNCH DEVICE TABLE 
* 



E3A5 06F8 



PTBLE DW 



COTTY 



; OUTPUT TO THE TTY (CURRENTLY ASSIGNED 



CP/M MACRO ASSEM 2.0 



#008 



'** Cbios For CP/M Ver . 2.2 *** 



E3A7 3CE4 
E3A9 CDE3 
E3AB CDE3 



DW 


COPTR 


DW 


C0UP1 


DW 


C0UP2 



* READER DEVICE INPUT TABLE 
* 



BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER j 

i 

OUTPUT TO USER PUNCH 1 (CURRENT!^ 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 ( CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



m 
m 



E3AD 03F8 
E3AF 0CE4 
E3B1 0CE4 
E3B3 0CE4 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIUR1 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* CONSOLE STATUS TABLE 






E3B5 


73E4 


CSTBLE 


DW 


MIOSTAT % 


E3B7 


20E4 




DW 


CSCRT ' 


E3B9 


03E4 




DW 


CSUC1 ^ 


E3BB 


18E4 




DW 


CSTTY "-/ 



* STATUS FROM READER DEVICE 



STATUS FROM I/O MASTER 

STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 
STATUS OF TTY (CURRENTLY STSTUS FROM ,-«£, 

DISK JOCKEY 2D) 



C y //« 



Cscejr 9 



m 
m 
m 



E3BD 


18E4 


CS RTBLE 


DW 


CSTTY 


E3BF 


20E4 




DW 


CSPTR 


E3C1 


20E4 




DW 


CSUR1 


E3C3 


20E4 




DW 


CSUR2 







* STATUS FROM 
* 


LIST DEVICE 


E3C5 


2EE4 


LSTBLE DW 


READY 


E3C7 


2EE4 


DW 


READY 


E3C9 


29E4 


DW 


LSLPT 


E3CB 


29E4 


DW 


LSLPT 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



***************************************************************** 



# 






CP/M MACRO ASSEM 2.0 #009 *** Cbios For CP/M Ver . 2.2 *** 



* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



m 
m 



E3CD 


= 


COPTP 


EQU 


$ 


E3CD 


= 


COUP1 


EQU 


$ 


E3CD 


— 


COUP 2 


EQU 


$ 


E3CD 


DB02 


COLPT 


IN 


2 


E3CF 


E680 




ANI 


80H 


E3D1 


CACDE3 




JZ 


COLPT 


E3D4 


79 




MOV 


A,C 


E3D5 


D301 




OUT 


1 


E3D7 


C9 




RET 





***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 

***************************************************************** 



E3D8 


CDCDE3 


COUL1 


CALL 


COLPT 


E3DB 


3AF6E3 




LDA 


COUNT 


E3DE 


3D 




DCR 


A 


E3DF 


32F6E3 




STA 


COUNT 


E3E2 


C0 




RNZ 




E3E3 


3E4E 




MVI 


A,78> 


E3E5 


32F6E3 




STA 


COUltfT 


E3E8 


0E03 




MVI 


CAETX 


E3EA 


CDCDE3 




CALL 


COLPT 


E3ED 


CD0CE4 


PWAIT 


CALL 


CIPTR 


E3F0 


FE06 




CPI 


AACK 


E3F2 


C2EDE3 




JNZ 


PWAIT 


E3F5 


C9 




RET 




E3F6 


32 


COUNT 


DB 


50 



; OUTPUT THE CHARACTER 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 

**************************************************************** 






E3F7 DB03 CIUC1 

E3F9 E601 

E3FB CAF7E3 

E3FE DB04 

E400 E67F 

E402 C9 

E403 DB03 CSUC1 
E405 E601 
E407 EE01 



IN 


3 


ANI 


1 


JZ 


CIUC1 


IN 


4 


ANI 


7FH 


RET 




IN 


3 


ANI 


1 


XRI 


1 



GET ATTENTION BYTE 
GET BIT ONLY 
WAIT FOR CHARACTER 
GET CHARACTER 
STRIP OFF THE PARITY 



GET ATTENTION BYTE 
GET BIT ONLY 
CHANGE POLARITY 



CP/M MACRO ASSEM 2.0 #010 
E409 C31BE4 JMP 



*** Cbios For CP/M Ver. 2.2 *** 

STAT ; RETURN PROPER INDICATION 



**************************************************************** * 

* *; 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 






INPUT FROM CRT 

INPUT FROM USER READER 1 

INPUT FROM USER READER 2 

INPUT FROM PAPER TAPE READER, GET STATUS 

WAIT FOR CHARACTER 



; STRIP OFF THE PARITY 



***************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 

***************************************************************** 



E40C 


= 


CI CRT 


EQU 


$ 


E40C 


= 


CIUR1 


EQU 


$ 


E40C 


= 


CIUR2 


EQU 


$ 


E40C 


DB02 


CIPTR 


IN 


2 


E40E 


E640 




ANI 


40H 


E410 


CA0CE4 




JZ 


CIPTR 


E413 


DB01 




IN 


1 


E415 


E67F 




ANI 


7FH 


E417 


C9 




RET 





# 



E418 CD21F8 


CSTTY 


CALL 


DJTSTAT 


E41B 3E00 


STAT 


MVI 


A,0 


E41D C0 




RNZ 




E41E 3D 




DCR 


A 


E41F C9 




RET 





STATUS FROM DISK JOCKEY 2D 
PREP FOR ZERO RETURN 
NOTHING FOUND 
RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 

****** *********************************************************** 

; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

; STATUS FROM CRT, GET STATUS 

; STRIP OF DATA READY BIT 

;MAKE CORRECT POLARITY 

; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 

***************************************************************** 



E420 


= 


CSUR1 


EQU 


$ 


E420 


= 


CSUR2 


EQU 


$ 


E420 


= 


CSPTR 


EQU 


$ 


E420 


DB02 


CSCRT 


IN 


2 


E422 


E640 




ANI 


40H 


E424 


EE40 




XRI 


40H 


E426 


C31BE4 




JMP 


STAT 






# 



E429 DB02 
E42B E680 
E42D C8 
E42E 3EFF 



LSLPT 



READY 



IN 


2 


ANI 


80H 


RZ 




MVI 


A, 



;ALL OTHER DEVICES WAIT 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 
E430 C9 RET 



***************************************************************** 

* * 

* VIO-X VIDEO DRIVER * 

* * 
***************************************************************** 

COCRT IN 9 ;READ STATUS PORT 

AN I 1 ;MASK TXRDY BIT 

JZ COCRT ;WAIT FOR READY 

MOV A,C ;GET CHAR 

OUT 8 ; OUTPUT IT 

RET ;ALL DONE 



E431 DB09 
E433 E601 
E435 CA31E4 
E438 79 
E439 D308 
E43B C9 



ilijV^" 1 ^ 



# 



***************************************************************** 

* * 

* ROUTINE FOR OKIDATA PRINTER * 

* PRINTER IS ON PORT WITH PRINTER READY ON PORT 5 BIT 1 * 

* * 
***************************************************************** 



E43C DB02 


COPTR 


IN 


2 


E43E E608 




ANI 


8 


E440 CA3CE4 




JZ 


COPTR 


E443 DB05 


COPTR1 


IN 


5 


E445 E601 




ANI 


1 


E447 CA43E4 




JZ 


COPTR1 


E44A 79 




MOV 


A,C 


E44B D300 




OUT 





E44D C9 




RET 





; INPUT FROM PORT 2 
;WAIT UNTIL OK TO SEND 

; BUFFER FULL? 

;WAIT UNTIL PRINTER READY 
; OUTPUT THE CHARACTER 



***************************************************************** 



* TERMINAL ROUTINES FOR MULTI- I/O BOARD FOR USE AS CONSOLE * 

* * 
***************************************************************** 



;GET GROUP BYTE 
; SELECT CONSOLE 

;READ STATUS REGISTER 
;WAIT TILL CHARACTER READY 



E44E 


3A3AE3 


MIOIN 


LDA 


GROUP 


E451 


F601 




ORI 


CONGRP 


E453 


D34F 




OUT 


GRPSEL 


E455 


DB4D 


CONINA 


IN 


LSR 


E457 


E601 




ANI 


DR 


E459 


CA55E4 




JZ 


CONINA 


E45C 


DB48 




IN 


RBR 


E45E 


E67F 




ANI 


7FH 


E460 


C9 




RET 




E461 


3A3AE3 


MIOOUT 


LDA 


GROUP 


E464 


F601 




ORI 


CONGRP 


E466 


D34F 




OUT 


GRPSEL 


E468 


DB4D 


CONOUT1 


IN 


LSR 


E46A 


E620 




ANI 


THRE 


E46C 


CA68E4 




JZ 


CONOUT1 


E46F 


79 




MOV 


A,C 



# 



;READ CHARACTER 
; STRIP PARITY 



;GET GROUP BYTE 
; SELECT CONSOLE 



;READ STATUS 

;WAIT TILL TRANSMITTER BUFFER EMPTY 

; CHARACTER IS IN (C) 






CP/M MACRO ASSEM 2.0 



#012 



*** Cbios For CP/M Ver . 2.2 *** 



; OUTPUT TO TRANSMITTER BUFFER 



;GET GROUP BYTE 
; SELECT CONSOLE 

;READ STATUS REGISTER 

;NO CHARACTTER READY 
; CHARACTER READY 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). 



E470 D348 


OUT 


THR 


E472 C9 


RET 




E473 3A3AE3 


MIOSTAT LDA 


GROUP 


E476 F601 
E478 D34F) 


ORI 


CONGRP 


OUT 


GRPSEL 


E47A DB4D 


IN 


LSR 


E47C E601 


ANI 


DR 


E47E C8 


RZ 




E47F 3EFF 


MVI 


A, 0FFH 


E481 C9 


RET 





* 

* * 

***************************************************************** 



E482 


218000 


GOCPM LXI 


H,BUFF 


E485 


CD1DE5 


CALL 


SETDMA 


E488 


3EC3 


MVI 


A, (JMP) 


E48A 


320000 


STA 


WBOT 


E48D 


320500 


STA 


ENTRY 


E490 


2103E3 


LXI 


H,WBOOTE 


E493 


220100 


SHLD 


WBOT+1 


E496 


2106D5 


LXI 


H,BDOS+6 


E499 


220600 


SHLD 


ENTRY+1 


E49C 


AF 


XRA 


A 


E49D 


32F4EE 


STA 


BUFSEC 


E4A0 


3218E7 


STA 


BUFWRTN 


E4A3 


3A0400 


LDA 


CDISK 


E4A6 


4F 


MOV 


C,A 


E4A7 


3AD4E4 


LDA 


CWFLG 


E4A^ 


B7 


ORA 


A 


E4AB 


11D6E4 


LXI 


D,COLDBEG 


E4AE 


3E01 


MVI 


A, COLDEND 


E4B0 


CAB8E4 


JZ 


CLDCMND 


E4B3 


11D7E4 


LXI 


D,WARMBEG 


E4B6 


3E01 


MVI 


A,WARMEND 


E4B8 


2108CD 


CLDCMND LXI 


H,CCP+8 


E4BB 


3207CD 


STA 


CCP+7 


E4BE 


47 


MOV 


BwA 


E4BF 


CDE0E7 


CALL 


MOVLOP 


E4C2 


3AD4E4 


LDA 


CWFLG 


E4C5 


B7 


ORA 


A 


E4C6 


3AD5E4 


LDA 


AUTOFLG 


E4C9 


CACDE4 


JZ 


CLDBOT 


E4CC 


IF 


RAR 




E4CD 


IF 


CLDBOT RAR 




E4CE 


DA00CD 


JC 


CCP 


E4D1 


C303CD 


JMP 


CCP+3 


E4D4 


00 


CWFLG DB 






4- 



;SET UP INITIAL DMA ADDRESS 

.•INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 
; ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 



;A <- 

;DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



; BEGINNING OF INITIAL COMMAND 
-COLDBEG+1 ; LENGTH OF COMMAND 



-WARMBEG+1 

; COMMAND BUFFER 



; ENTER CP/M 

; COLD/WARM BOOT FLAG 



CP/M MACRO ASSEM 2.0 #013 *** Cbios For CP/M Ver . 2.2 *** 

***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: 



* 
* 

* 

* 
* 
* 
* 
***************************************************************** 



* = NEVER GIVE COMMAND. 

* 1 - GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 
* 






E4D5 00 



AUTOFLG DB 







;AUTO COMMAND FEATURE 



# 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE; * 

* * 



COLDBEG DB 
COLDEND DB 



•MBASIC MYPROG' 




* 

*| 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

* * 

***************************************************************** 





COLDBEG DB 


i ■ 


E4D6 00 


COLDEND DB 







WARMBEG DB 


■ ■ 


E4D7 00 


WARMEND DB 






;COLD BOOT COMMAND GOES HERE 
;WARM BOOT COMMAND GOES HERE 



***************************************************************** 

* *; 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

*| 

a****************************************************************; 






m 
m 



E4D8 


310001 


WBOOT 


LXI 


SP.TPA 


E4DB 


3E01 




MVI 


A,l 


E4DD 


32D4E4 




STA 


CWFLG 


E4E0 


AF 




XRA 


A 


E4E1 


4F 




MOV 


C,A 


E4E2 


2100CB 




LXI 


H,CCP-200H 


E4E5 


E5 




PUSH 


H 


E4E6 


3223E9 




STA 


HEAD 


E4E9 


3E01 




MVI 


A, 1 


E4EB 


F5 




PUSH 


PSW 


E4EC 


CDF5E7 




CALL 


HDDRV 


E4EF 


0E00 




MVI 


C,0 


E4F1 


CD14E8 




CALL 


HDTRK 


E4F4 


Fl 


WARMLOD 


POP 


PSW 



;SET UP STACK POINTER 
;SET COLD/WARM BOOT FLAG 

; INITIAL DMA ADDRESS 



ySAVE FIRST SECTOR 
; SELECT DRIVE A 

;HOME THE DRIVE 
; RESTORE SECTOR 



- 1 






CP/M MACRO ASSEM 2.0 #014 



«** Cbios For CP/M Ver. 2.2 *** 



E4F5 


El 


POP 


E4F6 


3C 


INR 


E4F7 


3207E9 


STA 


E4FA 


FE0C 


CPI 


E4FC 


CA82E4 


JZ 


E4FF 


24 


INR 


E500 


24 


INR 


E501 


227EE8 


SHLD 


E504 


E5 


PUSH 


E505 


F5 


PUSH 


E506 


01000A 


WARMRD LXI 


E509 


C5 


WRMREAD PUSH 


E50A 


CD64E8 


CALL 


1 E50D 


CI 


POP 


E50E 


D2F4E4 


JNC 


E511 


05 


DCR 


1 E512 


C209E5 


JNZ 


E515 


76 


HLT 


E516 


00 


DB 



; RESTORE DMA ADDRESS 



;PAST BDOS ? 

;YES, ALL DONE 

; UPDATE DMA ADDRESS 



H 

A 

HDSECTR 

12 

GOCPM 

H 

H 

HDADD \ 

H 

PSW 

B, RETRIES* 100H+0 ;RETRY COUNTER 

B ;SAVE THE RETRY COUNT 

HDREAD j READ THE SECTOR 

B 

WARMLOD ;TEST FOR ERROR 

B ; UPDATE THE ERROR COUNT 

WRMREAD ;KEEP TRYING IF NOT TO MANY ERRORS 

; ERROR HALT 
;TRY NOT TO SCREW UP DECISION CPU'S 



# 



***************************************************************** 

* *: 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. *; 

* * 
***************************************************************** 



# 



# 



E517 


60 


SETSEC 


MOV 


H,B 


E518 


69 




MOV 


L f C 


E519 


22ECEE 




SHLD 


CPMSEC 


E51C 


C9 


DONOP 


RET 





;NULL SINGLE.COM HOOKUP FOR NO FLOPPIES 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. *i 

* * 
*****************************************************************; 



E51D 


60 


SETDMA 


MOV 


H,B 


E51E 


69 




MOV 


L,C 


E51F 


22F8E6 




SHLD 


CPMDMA 


E522 


C9 




RET 





;HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
***************************************************************** 



E523 0E00 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. *\ 

* * 



• 



CP/M MACRO ASSEM 2.0 #015 *** Cbios For CP/M Ver . 2.2 *** 

***************************************************************** 

;A <- TRACK # 
;CP/M TRACK # 



E525 


79 


SETTRK MOV A, C 


E526 


32EFEE 


STA CPMTRK 


E529 


C9 


RET 
********************** 



* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 

***************************************************************** 






E52A 


3AEEEE 


SECTRAN 


LDA 


CPMDRV 


E52D 


FE03 




CPI 


MAXHD*LOGDSK 


E52F 


DA61E5 




JC 


TRANHD 


E532 


03 


TRANFP 


INX 


B 


E533 


D5 




PUSH 


D 


E534 


C5 




PUSH 


B 


E535 


CD7CE6 




CALL 


GETDPB 


E538 


7E 




MOV 


A,M 


E539 


B7 




ORA 


A 


E53A 


IF 




RAR 




E53B 


91 




SUB 


C 


E53C 


F5 




PUSH 


PSW 


E53D 


FA49E5 




JM 


SIDETWO 


E540 


Fl 


SIDEA 


POP 


PSW 


E541 


CI 




POP 


B 


E542 


Dl 




POP 


D 


E543 


EB 


SIDEONE 


XCHG 




E544 


09 




DAD 


B 


E545 


6E 




MOV 


L,M 


E546 


2600 




MVI 


H,0 


E548 


C9 




RET 




E549 


010F00 


SIDETWO 


LXI 


B,15 


E54C 


09 




DAD 


B 


E54D 


7E 




MOV 


A,M 


E54E 


E608 




AN I 


8 


E550 


CA40E5 




JZ 


SIDEA 


E553 


Fl 




POP 


PSW 


E554 


CI 




POP 


B 


E555 


2F 




CMA 




E556 


3C 




INR 


A 


E557 


4F 




MOV 


C,A 


E558 


Dl 




POP 


D 


E559 


CD43E5 




CALL 


SIDEONE 


E55C 


3E80 




MVI 


A,80H 


E55E 


B4 




ORA 


H 


E55F 


67 




MOV 


H,A 


E560 


C9 




RET 




E561 


60 


TRANHD 


MOV 


H,B 


E562 


69 




MOV 


L,C 


E563 


23 




INX 


H 



;GET THE DRIVE NUMBER 
?OVER THE # OF HARD DISKS ? 



;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

.•DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- &( TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

?TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



;SIDE TWO BIT 

; AND SECTOR 












CP/M MACRO ASSEM 2.0 #016 *** Cbios For CP/M Ver . 2.2 *** 
E564 C9 RET 



*************************************************************** 
* * 

*■ 
* 
* 



* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 

* PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 

* DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 

* DIFFERENT SECTOR SIZES: 

* 1) 128 BYTES SINGLE DENSITY. 

2) 256 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



# 
• 



* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



E565 
E566 
E569 
E56B 
E56E 
E56F 
E571 
E574 
E577 
E579 
E57C 
E57E 
E57F 
E580 
E581 
E582 
E585 
E587 
E58A 
E58C 
E58D 
E590 
E591 
E592 
E593 
E594 
E597 
E59A 
E59D 
E59F 
E5A2 
E5A4 
E5A7 
E5A9 
E5AC 



79 

32EEEE 

FE04 

D26DE6 

7B 

E601 

C254E6 

3AEEEE 

FE03 

DA27E6 

D603 

4F 

3E00 

A7 

C2D2E5 

0611 

2100F8 

3EC3 

BE 

C26DE6 

23 

23 

23 

05 

C28CE5 

11AFE5 

21E2FF 

061E 

CDE0E7 

3EFF 

32F9FB 

3ED0 

32FCFB 

C3CDE5 



SETDRV MOV 
STA 
CPI 
JNC 
MOV 
ANI 
JNZ 
LDA 
CPI 
JC 
SUI 
MOV 
MVI 

FLOPFLG EQU 
ANA 
JNZ 
MVI 
LXI 
MVI 

CLOPP CMP 
JNZ 
INX 
INX 
INX 
DCR 
JNZ 
LXI 
LXI 
MVI 
CALL 
MVI 
STA 
MVI 
STA 
JMP 



A,C ;SAVE THE DRIVE # 

CPMDRV 

MAXFLOP+(MAXHD*LOGDSK) ; CHECK FOR A VALID DRIVE # 

ZRET 

A,E 

1 

SETDRV1 

CPMDRV 

MAXHD*LOGDSK 

DRVHD 

MAXHD*LOGDSK 

C,A 

A,0 

$-1 

A 

FLOPOK 

B,17 

H,DJBOOT 

A, (JMP) 

M 

ZRET 

H 

H 

H 

B 

CLOPP 

D,DJINIT 

H,ORIGIN+7E2H 

B,30 

MOVLOP 

A, 0FFH 

DREG 

A, CLRCMD 

CMDREG 

DJNEXT 



; ILLEGAL DRIVE # 

;TEST IF DRIVE EVER LOGGED IN BEFORE 

BIT OF E = -> NEVER SELECTED BEFORE 

GET THE DRIVE NUMBER 

OVER THE # OF HARD DISKS ? 



;SAVE DRIVE # 

;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



r FLOPPIES HAVN'T BEEN ACCESSED 

r CHECK IF 2D CONTROLLER IS INSTALLED 






; INITIALIZATION SEQUENCE 
;LOAD ADDRESS 
;BYTE COUNT 

; START 1791 

;1791 RESET 



# 



E5AF 0000001800DJINIT DB 
E5BF 09FF09FF09 DB 



0, 0, 0, 18H, 0, 0, 8, 0, 7EH, 0, 8, 0, 9, 0FFH, 9, 0FFH 
9, 0FFH, 9, 0FFH, 9, 0, 1, 0, 0, 0, 0, 0, 0, 



E5CD 3E01 



DJNEXT MVI 



A,l 



;SAVE 2D INITIALIZED FLAG 



CP/M MACRO ASSEM 2.0 
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E5CF 


3280E5 


STA 


FLOPFLG 


E5D2 


210100 FLOPOK LXI 


H,l 


E5D5 


22F0EE 


SHLD 


TRUESEC 


E5D8 


3E01 


MVI 


A, 1 


E5DA 


32EFEE 


STA 


CPMTRK 


E5DD 


CDAAE7 


CALL 


FILL 


E5E0 


DA6DE6 ; 


JC 


ZRET 


E5E3 


CD27F8 


CALL 


D J STAT 


E5E6 


E60C 


ANI 


0CH 


E5E8 


F5 


PUSH 


PSW 


E5E9 


IF 


RAR 




E5EA 


2195E6 


LXI 


H,XLTS 


E5ED 


5F 


MOV 


E,A 


E5EE 


1600 


MVI 


D,0 


E5F0 


19 


DAD 


D 


E5F1 


E5 


PUSH 


H 


E5F2 


CD7CE6 


CALL 


GETDPB 


E5F5 


EB 


XCHG 




E5F6 


Dl 


POP 


D 


E5F7 


0602 


MVI 


B,2 


E5F9 


CDE0E7 


CALL 


MOVLOP 


E5FC 


110800 


LXI 


D,8 


E5FF 


19 


DAD 


D 


E600 


E5 


PUSH 


H 


E601 


2A07F8 


LHLD 


ORIGIN+7 


E604 


23 


INX 


H 


E605 


7E 


MOV 


A,M 


E606 


EE03 


XRI 


3 


E608 


6F 


MOV 


L,A 


E609 


26FB 


MVI 


H, (ORIGIN 


E60B 


7E 


MOV 


A,M 


E60C 


E608 


ANI 


DBLSID 


E60E 


11FCE9 


LXI 


D,DPB128S 


E611 


C217E6 


JNZ 


SIDEOK 


E614 


113CEA 


LXI 


D,DPB128D 


E617 


EB SIDEOK XCHG 




E618 


Dl 


POP 


D 


E619 


Fl 


POP 


PSW 


E61A 


17 


RAL 




E61B 


17 


RAL 




E61C 


4F 


MOV 


C,A 


E61D 


0600 


MVI 


B,0 


E61F 


09 


DAD 


B 


E620 


EB 


XCHG 




E621 


73 


MOV 


M,E 


E622 


23 


INX 


H 


E623 


72 


MOV 


M,D 


E624 


C354E6 


JMP 


SETDRV1 


E627 


CD73E6 DRVHD CALL 


DIVLOG 


E62A 


79 


MOV 


A,C 


E62B 


3229E9 


STA 


HDDISK 


E62E 


CD17E9 


CALL 


DRVPTR 


E631 


7E 


MOV 


A,M 


E632 


3C 


INR 


A 



; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 

FOR PROPER REV I 

; CHECK DOUBLE SIDED BIT 

7 BASE FOR SINGLE SIDED DPB'S 



# 



; ADJUST FOR PROPER REV DJ 



BASE OF DOUBLE SIDED DPB'S 
HL <- DBP BASE, DE <- &DPH.DPB 
RESTORE DE (POINTER INTO DPH) 
OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 

;SKIP OVER THE HARD DISK SELECT 
;DIVIDE BY LOGICAL DISKS PER DRIVE 
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E633 


C254E6 




JNZ 


SETDRV1 


E636 


F6FC 




ORI 


NULL 


E638 


D352 




OUT 


HDFUNC 


E63A 


3E05 




MVI 


A, SCENBL 


E63C 


D350 




OUT 


HDCNTL 


E63E 


0EEF 




MVI 


C,239 


E640 


210000 




LXI 


H,0 


E643 


2B 


TDELAY 


DCX 


H 


E644 


7C 




MOV 


A f H 


E645 


B5 




ORA 


L 


E646 


CC71E6 




CZ 


DCRC 


E649 


C8 




RZ 




E64A 


DB50 




IN 


HDSTAT 


E64C 


E620 




ANI 


DRVRDY 


E64E 


C243E6 




JNZ 


TDELAY 


E651 


CD06E8 




CALL 


HDHOME 


E654 


CD7CE6 


SETDRV1 


CALL 


GETDPB 


E657 


010F00 




LXI 


B,15 


E65A 


09 




DAD 


B 


E65B 


7E 




MOV 


A,M 


E65C 


E607 




ANI 


7H 


E65E 


32A9E6 




STA 


SECSIZ 


E661 


7E 




MOV 


A,M 


E662 


IF 




RAR 




E663 


IF 




RAR 




E664 


IF 




RAR 




E665 


IF 




RAR 




E666 


E60F 




ANI 


0FH 


E668 


32E7E6 




STA 


SECPSEC 


E66B 


EB 




XCHG 




E66C 


C9 




RET 




E66D 


210000 


ZRET 


LXI 


H f 


E670 


C9 




RET 




E671 


0D 


DCRC 


DCR 


C 


E672 


C9 




RET 




E673 


0E00 


DIVLOG 


MVI 


C,0 


E67 5 


D603 


DIVLOGX 


SUI 


LOGDSK 


E677 


D8 




RC 




E678 


0C 




INR 


C 


E679 


C375E6 




JMP 


DIVLOGX 



E67C 3AEEEE 
E67F 6F 
E680 2600 
E682 29 



; SELECT DRIVE 

; ENABLE THE CONTROLLER 

;WAIT APPROX 2 MINUTES FOR DISK TO READY 



;TEST IF READY YET 



;GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 






,-HL <- DPH 



;SELDRV ERROR EXIT 






; CONDITIONAL DECREMENT C ROUTINE 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY *; 

* SELECTED DRIVE, DE POINTING TO DPH. *, 

* *: 

*****************************************************************; 



GETDPB 



LDA 


CPMDRV 


MOV 


L,A 


MVI 


H,0 


DAD 


H 



; # 

i 



;FORM OFFSET 
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E683 29 
E684 29 
E685 29 
E686 11ACEA 
E689 19 
E68A E5 
E68B 110A00 
E68E 19 
E68F 7E 
E690 23 
E691 66 
E692 6F 
E693 Dl 
E694 C9 



DAD 


H 


DAD 


H 


DAD 


H 


LXI 


D,DPBASE 


DAD 


D 


PUSH 


H 


LXI 


D,10 


DAD 


D 


MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


POP 


D 


RET 





;BASE OF DPH'S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

;GET LOW BYTE OF DPB ADDRESS 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 






E695 2EE9 
E697 49E9 
E699 7EE9 
E69B BBE9 



DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 



XLTS DW XLT128 ;XLT FOR 128 BYTE SECTORS 

;XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
;XLT FOR 1024 BYTE SECTORS 

***************************************************************** 

* *' 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* *' 
***************************************************************** 



E69D 79 
E69E 320FE7 
E6A1 3E01 
E6A3 06 



WRITE 



MOV 


A,C 


STA 


WRITTYP 


MVI 


A,l 


DB 


(MVI) OR (B*8) 



;SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR *| 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS *j 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. *': 

* * 
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E6A4 AF 
E6A5 32FBE6 



READ 



XRA 

ST A 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



*****************************************************************; 

* *! 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * ! 

* * 

***************************************************************** 



• 



E6A8 


0600 


REDWRT MVI 


B,0 


E6A9 


= 


SECSIZ EQU 


$-1 


E6AA 


2AECEE 


LHLD 


CPMSEC 


E6AD 


7C 


MOV 


A,H 


E6AE 


E680 


ANI 


80H 


E6B0 


4F 


MOV 


C,A 


E6B1 


7C 


MOV 


A,H 


E6B2 


E67F 


ANI 


7FH 


E6B4 


67 


MOV 


H,A 


E6B5 


2B 


DCX 


H 


E6B6 


05 


DIVLOOP DCR 


B 


E6B7 


CAC4E6 


JZ 


DIVDONE 


E6BA 


B7 


ORA 


A 


E6BB 


7C 


MOV 


A,H 


E6BC 


IF 


RAR 




E6BD 


67 


MOV 


H,A 


E6BE 


7D 


MOV 


A,L 


E6BF 


IF 


RAR 




E6C0 


6F 


MOV 


L,A 


E6C1 


C3B6E6 


JMP 


DIVLOOP 


E6C4 


23 


DIVDONE INX 


H 


E6C5 


7C 


MOV 


A,H 


E6C6 


Bl 


ORA 


C 


E6C7 


67 


MOV 


H,A 


E6C8 


22F0EE 


SHLD 


TRUESEC 


E6CB 


21EEEE 


LXI 


H.CPMDRV 


E6CE 


11F2EE 


LXI 


D , BUFDRV 


E6D1 


0605 


MVI 


B,5 


E6D3 


05 


DTSLOP DCR 


B 


E6D4 


CAE2E6 


JZ 


MOVE 


E6D7 


1A 


LDAX 


D 


E6D8 


BE 


CMP 


M 


E6D9 


23 


INX 


H 


E6DA 


13 


INX 


D 


E6DB 


CAD3E6 


JZ 


DTSLOP 



THE IS MODIFIED TO CONTAIN THE LOG2 
OF THE PHYSICAL SECTOR SIZE/128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT i 

; REMEMBER THE SIDE 

; FORGET THE SIDE BIT 

; TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUMBER ! 

POINTER TO DESIRED DRIVE, TRACK, ^ND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 

; MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 
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E6DE CDAAE7 
E6E1 D8 



* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;N0 GOOD, RETURN WITH ERROR INDICATION 






***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 
***************************************************************** 



m 
m 



• 



E6E2 


3AECEE 


MOVE 


LDA 


CPMSEC 


E6E5 


3D 




DCR 


A 


E6E6 


E600 




ANI 





E6E7 


= 


SECPSEC 


EQU 


$-1 


E6E8 


6F 




MOV 


L,A 


E6E9 


2600 




MVI 


H,0 


E6EB 


29 




DAD 


H 


E6EC 


29 




DAD 


H 


E6ED 


29 




DAD 


H 


E6EE 


29 




DAD 


H 


E6EF 


29 




DAD 


H 


E6F0 


29 




DAD 


H 


E6F1 


29 




DAD 


H * 


E6F2 


11ECEA 




LXI 


D, BUFFER 


E6F5 


19 




DAD 


D 


E6F6 


EB 




XCHG 




E6F7 


210000 




LXI 


H,0 


E6F8 


= 


CPMDMA 


EQU 


$-2 


E6FA 


3E00 




MVI 


A,0 


E6FB 


— 


RDWR 


EQU 


$-1 


E6FC 


A7 




ANA 


A 


E6FD 


C205E7 




JNZ 


INTO 


E700 


CDDEE7 


OUTOF 


CALL 


MOVER 


E703 


AF 




XRA 


A 


E704 


C9 




RET 




E705 


EB 


INTO 


XCHG 




E706 


CDDEE7 




CALL 


MOVER 


E709 


3E01 




MVI 


A, 1 


E70B 


3218E7 




STA 


BUFWRTN 


E70E 


3E00 




MVI 


A, 


E70F 


= 


WRITTYP 


EQU 


$-1 


E710 


3D 




DCR 


A 


E711 


3E00 




MVI 


A,0 


E713 


320FE7 




STA 


WRITTYP 


E716 


C0 




RNZ 





GET THE CP/M SECTOR TO TRANSFER 
ADJUST TO PROPER SECTOR IN BUFFER 
STRIP OFF HIGH ORDERED BITS 
THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL; SECTORS 
PUT INTO HL 

rFORM OFFSET INTO BUFFER 



BEGINNING ADDRESS OF BUFFER 

FORM BEGINNING ADDRESS OF SECTGR TO TRANSFER 
DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED T/ 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 






MOVE THE DATA, HL = DESTINATION 
DE - SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 



m 

m 

# 
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* * * 



* *1 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF *| 

* IT HAS EVER BEEN WRITTEN INTO. *' 

*****************************************************************! 

;THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 

;WRITE OPERATION FOR DISK JOCKEY 
;WRITE OPERATION FOR HARD DISK 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 



E717 


3E00 


FLUSH 


MVI 


A,0 


E718 


— 


BUFWRTN 


EQU 


$-1 


E719 


A7 




ANA 


A 


E71A 


C8 




RZ 




E71B 


2118F8 




LXI 


H,DJWRITE 


E71E 


1199E8 




LXI 


D,HD WRITE 


E721 


CDEDE7 




CALL 


DECIDE 






***************************************************************** 



E724 


F3 


PREP DI 




E725 


AF 


XRA 


A 


E726 


3218E7 


STA 


BUFWRTN 


E729 


228BE7 


SHLD 


RETRYOP 


E72C 


060A 


MVI 


B, RETRIES 


E72E 


C5 


RETRYLP PUSH 


B 


E72F 


3AF2EE 


LDA 


BUFDRV 


E732 


FE03 


CPI 


MAXHD*LOGDSK 


E734 


DA39E7 


JC 


NOADJST 


E737 


D603 


SUI 


MAXHD*LOGDSK 


E739 


4F 


NOADJST MOV 


C,A 


E73A 


2133E3 


LXI 


H,DJDRV 


E73D 


11F5E7 


LXI 


D,HDDRV 


E740 


CDE9E7 


CALL 


DECIDGO 


E743 


3AF3EE 


LDA 


BUFTRK 


E746 


A7 


ANA 


A 


E747 


4F 


MOV 


C,A 


E748 


C5 


PUSH 


B 


E749 


2109F8 


LXI 


H,DJHOME 


E74C 


1106E8 


LXI 


D,HDHOME 


E74F 


CCE9E7 


CZ 


DECIDGO 


E752 


CI 


POP 


B 


E753 


210CF8 


LXI 


H,DJTRK 


E756 


1114E8 


LXI 


D,HDTRK 


E759 


CDE9E7 


CALL 


DECIDGO 


E75C 


2AF4EE 


LHLD 


BUFSEC 


E75F 


7C 


MOV 


A,H 


E760 


07 


RLC 




E761 


E601 


ANI 


1 


E763 


4F 


MOV 


C,A 


E764 


2130F8 


LXI 


H,DJSIDE 



; RESET INTERRUPTS 

; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 



; SELECT DRIVE 



;TEST FOR TRACK ZERO 



; RESTORE TRACK # 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
;C <- SIDE # 



m 
m 
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• 






E767 


113DE8 


LXI 


D,HDSIDE 


E76A 


CDE9E7 


CALL 


DECIDGO 


E76D 


2AF4EE 


LHLD 


BUFSEC 


E770 


7C 


MOV 


A,H 


E771 


E67F 


ANI 


7FH 


E773 


47 


MOV 


B,A 


E774 


4D 


MOV 


C f L 


E775 


210FF8 


LXI 


H,DJSEC 


E778 


1146E8 


LXI 


D,HDSEC 


E77B 


CDE9E7 


CALL 


DECIDGO 


E77E 


01ECEA 


LXI 


B, BUFFER 


E781 


2112F8 


LXI 


H,DJDMA 


E784 


1138E8 


LXI 


D,HDDMA 


E787 


CDE9E7 


CALL 


DECIDGO 


E78A 


CD0000 


CALL 





E78B 


= 


RETRYOP EQU 


§-2 


E78D 


CI 


POP 


B 


E78E 


3E00 


MVI 


A,0 


E790 


D0 


RNC 




E791 


05 


DCR 


B 


E792 


37 


STC 




E793 


3EFF 


MVI 


A, 0FFH 


E795 


C8 


RZ 




E796 


78 


MOV 


A,B 


E797 


FE05 


CPI 


RETRIES/2 


E799 


C22EE7 


JNZ 


RETRYLP 


E79C 


C5 


PUSH 


B 


E79D 


2109F8 


LXI 


H,DJHOME 


E7A0 


1106E8 


LXI 


D,HDHOME 


E7A3 


CCE9E7 


CZ 


DECIDGO 


E7A6 


CI 


POP 


B 


E7A7 


C32EE7 


JMP 


RETRYLP 



E7AA 


CD17E7 


E7AD 


D8 


E7AE 


11EEEE 


E7B1 


21F2EE 


E7B4 


0604 


E7B6 


CDE0E7 


E7B9 


3AFBE6 


E7BC 


A7 


E7BD 


CAD2E7 


E7C0 


3A0FE7 


E7C3 


3D 


E7C4 


3D 


E7C5 


C8 


E7C6 


CD7CE6 


E7C9 


110F00 


E7CC 


19 


E7CD 


7E 



; STRIP OFF SIDE BIT 
;C <- SECTOR # 



;SET THE DMA ADDRESS 



;GET OPERATION ADDRESS 

; RESTORE THE RETRY COUNTER 

7 NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

; RETURN SAD NEWS 

;RESEEK AFTER HALF RETRIES DONE 
;TRY AGAIN 






;TRY AGAIN 



**************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* *'• 

***************************************************************** 






FILL 



CALL 


FLUSH 


RC 




LXI 


D,CPMDRV 


LXI 


H,BUFDRV 


MVI 


B,4 


CALL 


MOVLOP 


LDA 


RDWR 


ANA 


A 


JZ 


FREAD 


LDA 


WRITTYP 


DCR 


A 


DCR 


A 


RZ 




CALL 


GETDPB 


LXI 


D,15 


DAD 


D 


MOV 


A,M 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 
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E7CE 


E603 


ANI 


3 


E7D0 


3D 


DCR 


A 


E7D1 


C8 


RZ 




E7D2 


FREAD EQU 


$ 


E7D2 


2115F8 


LXI 


H,DJREAD 


E7D5 


1164E8 


LXI 


D,HDREAD 


E7D8 


CDEDE7 


CALL 


DECIDE 


E7DB 


C324E7 


JMP 


PREP 



; SELECT DRIVE, TRACK, AND SECTOR. 
THEN READ THE BUFFER 

***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. *\ 

* *i 

***************************************************************** 



m 



E7DE 0680 
E7E0 1A 
E7E1 77 
E7E2 13 
E7E3 23 
E7E4 05 
E7E5 C2E0E7 
E7E8 C9 



E7F5 79 
E7F6 CD73E6 
E7F9 79 
E7FA 3229E9 
E7FD F6FC 
E7FF D352 
E801 3E0F 



MOVER MVI B,128 

MOVLOP LDAX D 

MOV M,A 

INX D 

INX H 

DCR B 

JNZ MOVLOP 
RET 



; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
?BUMP POINTERS 

; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. * 

* * 
***************************************************************** 



E7E9 


CDEDE7 


DECIDGO 


CALL 


E7EC 


E9 




PCHL 


i E7ED 


3AF2EE 


DECIDE 


LDA 


E7F0 


FE03 




CPI 


E7F2 


D0 




RNC 


E7F3 


EB 




XCHG 


E7F4 


C9 




RET 



BUFDRV ;GET PROPER ROUTINE INTO H&L, BAS^D 

MAXHD*LOGDSK 



***************************************************************** 

* *! 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS *: 

* FOR THE HARD DISK. * 

* * 

***************************************************************** 



HDDRV 



MOV 


A,C 


CALL 


DIVLOG 


MOV 


A,C 


STA 


HDDISK 


OR I 


NULL 


OUT 


HDFUNC 


MVI 


A,WENABL 



; SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE # 

; SELECT THE DRIVE 



• 
• 

# 
• 



CP/M MACRO ASSEM 2.0 
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*** Cbios For CP/M Ver. 2.2 *** 



E803 


D350 




OUT 


HDCNTL 


E805 


C9 




RET 




E806 


CD17E9 


HDHOME 


CALL 


DRVPTR 


E809 


3600 




MVI 


M,0 


E80B 


DB50 




IN 


HDSTAT 


E80D 


E601 




ANI 


TKZERO 


E80F 


C8 




RZ 




E810 


AF 




XRA 


A 


E811 


C325E8 




JMP 


ACCOK 


E814 


GD17E9 


HDTRK 


CALL 


DRVPTR 


E817 


5E 




MOV 


E,M 


E818 


71 




MOV 


M,C 


E819 


7B 




MOV 


A,E 


E81A 


91 




SUB 


C 


E81B 


C8 




RZ 




E81C 


3F 




CMC 




E81D 


DA22E8 




JC 


HDTRK2 


E820 


2F 




CMA 




E821 


3C 




INR 


A 


E822 


C325E8 


HDTRK2 


JMP 


ACCOK 


E825 


47 


ACCOK 


MOV 


B,A 


E826 


CD22E9 




CALL 


BUILD 


E829 


E6FB 


SLOOP 


ANI 


N3TEP 


E82B 


D352 




OUT 


HDFUNC 


E82D 


F604 




ORI 


PSTEP 


E82F 


D352 




OUT 


HDFUNC 


E831 


05 




DCR 


B 


E832 


C229E8 




JNZ 


SLOOP 


E835 


C33EE8 




JMP 


WSDONE 


E838 


60 


HDDMA 


MOV 


H,B 


E839 


69 




MOV 


L,C 


E83A 


227EE8 




SHLD 


HDADD 


E83D 


= 


HDSIDE 


EQU 


$ 


E83D 


C9 




RET 




E83E 


DB50 


WSDONE 


IN 


HDSTAT 


E840 


E604 




ANI 


COMPLT 


E842 


CA3EE8 




JZ 


WSDONE 


E845 


C9 




RET 




E846 


79 


HDSEC 


MOV 


A,C 


E847 


CD5BE8 




CALL 


DIVSPT 


E84A 


C615 




API 


HDSPT 


E84C 


A7 




ANA 


A 


E84D 


CC57E8 




CZ 


GETSPT 


E850 


3207E9 




STA 


HDSECTR 


E853 


79 




MOV 


A,C 


E854 


3223E9 




STA 


HEAD 


E857 


3E15 


GETSPT 


MVI 


A, HDSPT 


E859 


0D 




DCR 


C 


E85A 


C9 




RET 




E85B 


0E00 


DIVSPT 


MVI 


C,0 



;SET TRACK TO ZERO 
;TEST STATUS 
;AT TRACK ZERO ? 
;YES 



;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 
;NEED TO SEEK AT ALL ? 



;GET CARRY INTO DIRECTION 



# 



;PREP FOR BUILD 

;GET STEP PULSE LOW 

; OUTPUT LOW STEP LINE 

;SET STEP LINE HIGH 

; OUTPUT HIGH STEP LINE 

; UPDATE REPEAT COUNT 

;KEEP GOING THE REQUIRED # OF TRACKS 



;SAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



CP/M MACRO ASSEM 2.0 



#026 



*** Cbios For CP/M Ver . 2.2 *** 



E85D 


D615 


DIVSPTX SUI 


HDSPT 


E85F 


D8 


RC 




E860 


0C 


INR 


C 


E861 


C35DE8 


JMP 


DIVSPTX 


E864 


CDE2E8 


HDREAD CALL 


HDPREP 


E867 


D8 


RC 




E868 


AF 


XRA 


A 


E869 


D351 


OUT 


HDCMND 


E86B 


2F 


CMA 




E86C 


D353 


OUT 


HDDATA 


E86E 


D353 


OUT 


HDDATA 


E870 


3E01 


MVI 


A, RSECT 


E872 


D351 


OUT 


HDCMND 


E874 


CDC8E8 


CALL 


PROCESS 


E877 


D8 


RC 




E878 


AF 


XRA 


A 


E87 9 


D351 


OUT 


HDCMND 


E87B 


0680 


MVI 


B,SECLEN/4 


E87D 


210000 


LXI 


H,0 


E87E 


= 


HDADD EQU 


$-2 


E880 


DB53 


IN 


HDDATA 


E882 


DB53 


IN 


HDDATA 


E884 


DB53 


RTLOOP IN 


HDDATA 


E886 


77 


MOV 


M,A 


E887 


23 


INX 


H 


E888 


DB53 


IN 


HDDATA 


E88A 


77 


MOV 


M,A 


E88B 


23 


INX 


H 


E88C 


DB53 


IN 


HDDATA 


ESSE 


77 


MOV 


M,A 


E88F 


23 


INX 


H 


E890 


DB53 


IN 


HDDATA 


E892 


77 


MOV 


M,A 


E893 


23 


INX 


H 


E894 


05 


DCR 


B 


E895 


C284E8 


JNZ 


RTLOOP 


E898 


C9 


RET 




E899 


CDE2E8 


HDWRITE CALL 


HDPREP 


E89C 


D8 


RC 




E89D 


AF 


XRA 


A 


E89E 


D351 


OUT 


HDCMND 


E8A0 


2A7EE8 


LHLP 


HDADD 


E8A3 


0680 


MVI 


B,SECLEN/4 


E8A5 


7E 


WTLOOP MOV 


A,M 


E8A6 


D353 


OUT 


HDDATA 


E8A8 


23 


INX 


H 


E8A9 


7E 


MOV 


A,M 


E8AA 


D353 


OUT 


HDDATA 


E8AC 


23 


INX 


H 


E8AD 


7E 


MOV 


A,M 


E8AE 


D353 


OUT 


HDDATA 


E8B0 


23 


INX 


H 


E8B1 


7E 


MOV 


A,M 


E8B2 


D353 


OUT 


HDDATA 



• 



;READ SECTOR COMMAND 



• 



;MOVE FOUR BYTES 



; PREPARE HEADER 



;MOVE 4 BYTES 
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*** Cbios For CP/M Ver . 2.2 *** 









E8B4 


23 


I NX 


H 


E8B5 


05 


DCR 


B 


E8B6 


C2A5E8 


JNZ 


WTLOOP 


E8B9 


3E05 


MVI 


A,WSECT 


E8BB 


D351 


OUT 


HDCMND 


E8BD 


CDC8E8 


CALL 


PROCESS 


E8C0 


D8 


RC 




E8C1 


3E10 


MVI 


A,WFAULT 


E8C3 


A0 


ANA 


B 


E8C4 


37 


STC 




E8C5 


C8 


RZ 




E8C6 


AF 


XRA 


A 


E8C7 


C9 


RET 




E8C8 


DB50 


PROCESS IN 


HDSTAT 


E8CA 


47 


MOV 


B,A 


E8CB 


E602 


ANI 


OPDONE 


E8CD 


CAC8E8 


JZ 


PROCESS 


E8D0 


3E07 


MVI 


A, DSKCLK 


E8D2 


D350 


OUT 


HDCNTL 


E8D4 


DB50 


IN 


HDSTAT 


E8D6 


E608 


ANI 


TMOUT 


E8D8 


37 


STC 




E8D9 


C0 


RNZ 




E8DA 


DB51 


IN 


HDRESLT 


E8DC 


E602 


ANI 


RETRY 


E8DE 


37 


STC 




E8DF 


C0 


RNZ 




E8E0 


AF 


XRA 


A 


E8E1 


C9 


RET 




E8E2 


DB50 


HDPREP IN 


HDSTAT 


E8E4 


E620 


ANI 


DRVRDY 


E8E6 


37 


STC 




E8E7 


C0 


RNZ 




E8E8 


3E08 


MVI 


A, ISBUFF 


E8EA 


D351 


OUT 


HDCMND 


E8EC 


CD22E9 


CALL 


BUILD 


E8EF 


F60C 


ORI 


0CH 


E8F1 


D352 


OUT 


HDFUNC 


E8F3 


3A23E9 


LDA 


HEAD 


E8F6 


D353 


OUT 


HDDATA 


E8F8 


CD17E9 


CALL 


DRVPTR 


E8FB 


7E 


MOV 


A,M 


E8FC 


D353 


OUT 


HDDATA 


E8FE 


A7 


ANA 


A 


E8FF 


0680 


MVI 


B,80H 


E901 


CA06E9 


JZ 


ZKEY 


E904 


0600 


MVI 


B,0 


E906 


3E00 


ZKEY MVI 


A,0 


E907 


= 


HDSECTR EQU 


$-1 


E908 


D353 


OUT 


HDDATA 


E90A 


78 


MOV 


A,B 


E90B 


D353 


OUT 


HDDATA 


E90D 


3E07 


MVI 


A , DSKCLK 


E90F 


D350 


OUT 


HDCNTL 



; ISSUE WRITE SECTOR COMMAND 



# 



;WAIT FOR COMMAND TO FINISH 



; TIMED OUT ? 



;ANY RETRIES ? 



; INITIALIZE POINTER 






;FORM HEAD BYTE 
;FORM TRACK BYTE 



;FORM SECTOR BYTE 



• 



cp/m macro ASSEM 2.0 
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E911 


3E0F 




MVI 


A,WENABL 


E913 


D350 




OUT 


HDCNTL 


E915 


AF 




XRA 


A 


E916 


C9 




RET 




E917 


2A29E9 


DRVPTR 


LHLD 


HDDISK 


E91A 


EB 




XCHG 




E91B 


1600 




MVI 


D,0 


E91D 


212DE9 




LXI 


H, DRIVES 


E920 


19 




DAD 


D 


E921 


C9 




RET 




E922 


3E00 


BUILD 


MVI 


A,0 


E923 


= 


HEAD 


EQU 


$-1 


E924 


17 




RAL 




E925 


17 




RAL 




E926 


17 




RAL 




E927 


17 




RAL 




E928 


F600 




ORI 





E929 


= 


HDDISK 


EQU 


$-1 


E92A 


EEF0 




XRI 


0F0H 


E92C 


C9 




RET 




E92D 


— "■ 


DRIVES 


EQU 

REPT 

DB 

ENDM 


$ 

MAXHD 

0FFH 


E92D+FF 




DB 


0FFH 



***************************************************************** 






* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

***************************************************************** 



E92E 


00 XLT128 


DB 


E92F 


01070D1319 


DB 


E934 


050B1117 


DB 


E938 


03090F15 


DB 


E93C 


02080E141A 


DB 


E941 


060C1218 


DB 


E945 


040A1016 


DB 


E949 


00 XLT256 


DB 


E94A 


0102131425 


DB 


E950 


0304151627 


DB 


E956 


0506171829 


DB 


E95C 


0708191A2B 


DB 


E962 


090A1B1C2D 


DB 


E968 


0B0C1D1E2F 


DB 


E96E 


0D0E1F2031 


DB 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 



• 



CP/M macro ASSEM 2.0 
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*** Cbios For CP/M Ver . 2.2 *** 



1 


E974 


0F10212233 


DB 


15,16,33,34,51,52 


• ! 


E97A 


11122324 


DB 


17,18,35,36 




E97E 


00 XLT512 


DB 





• 


E97F 


0102030411 


DB 


1,2,3,4,17,18,19,20 


E987 


2122232431 


DB 


33,34,35,36,49,50,51,52 




E98F 


0506070815 


DB 


5,6,7,8,21,22,23,24 


# 


E997 


2526272835 


DB 


37,38,39,40,53,54,55,56 


E99F 


090A0B0C19 


DB 


9,10,11,12,25,26,27,28 




E9A7 


292A2B2C39 


DB 


41 , 42 , 43 , 44 , 57 , 58 , 59 , 60 


• 


E9AF 


0D0E0F101D 


DB 


13,14,15,16,29,30,31,32 


E9B7 


2D2E2F30 


DB 


45,46,47,48 


• 


E9BB 


00 XLT124 


DB 





E9BC 


0102030405 


DB 


1,2,3,4,5,6,7,8 




E9C4 


191A1B1C1D 


DB 


25,26,27,28,29,30,31,32 


• 


E9CC 


3132333435 


DB 


49,50,51,52,53,54,55,56 


E9D4 


090A0B0C0D 


DB 


9,10,11,12,13,14,15,16 




E9DC 


2122232425 


DB 


33,34,35,36,37,38,39,40 


• 


E9E4 


393A3B3C3D 


DB 


57,58,59,60,61,62,63,64 


E9EC 


1112131415 


DB 


17,18,19,20,21,22,23,24 




E9F4 


292A2B2C2D 


DB 


41,42,43,44,45,46,47,48 



• 






E9FC 


1A00 


E9FE 


03 


E9FF 


07 


EA00 


00 


EA01 


F200 


EA03 


3F00 


EA05 


C0 


EA06 


00 


EA07 


1000 


EA09 


0200 


EA0B 


01 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. *, 

* * 

***************************************************************** 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. *! 

* * 
***************************************************************** 



DPB128S DW 
DB 
DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
DB 



26 

3 

7 



242 

63 

0C0H 



16 

2 

1H 



CP/M SECTORS/TRACK ; 

BSH ; 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



-1) + 



*****************************************************************; 

* *: 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 



• 






CP/M MACRO ASSEM 2.0 #030 *** Cbios For CP/M Ver . 2.2 *** 

***************************************************************** 



EA0C 


3400 


DPB256S DW 


52 


EA0E 


04 


DB 


4 


EA0F 


0F 


DB 


15 


EA10 


00 


DB 





EA11 


F200 


DW 


242 


EA13 


7F00 


DW 


127 


EA15 


C0 


DB 


0C0H 


EA16 


00 


DB 





EA17 


2000 


DW 


32 


EA19 


0200 


DW 


2 


EA1B 


12 


DB 


12H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 

CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS /PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* *, 

***************************************************************** 



EA1C 


3C00 


DPB512S DW 


60 


EA1E 


04 


DB 


4 


EA1F 


0F 


DB 


15 


EA20 


00 


DB 





EA21 


1801 


DW 


280 


EA23 


7F00 


DW 


127 


EA25 


C0 


DB 


0C0H 


EA26 


00 


DB 





EA27 


2000 


DW 


32 


EA29 


0200 


DW 


2 


EA2B 


33 


DB 


33H 



# 



EA2C 


4000 


DP1024S DW 


64 


EA2E 


04 


DB 


4 


EA2F 


0F 


DB 


15 


EA30 


00 


DB 





EA31 


2B01 


DW 


299 


EA33 


7F00 


DW 


127 


EA35 


C0 


DB 


0C0H 


EA36 


00 


DB 





EA37 


2000 


DW 


32 


EA39 


0200 


DW 


2 


EA3B 


74 


DB 


74H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM ! 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/128) + 1 '+ 






CP/M MACRO ASSEM 2.0 #031 



*** Cbios For CP/M Ver. 2.2 *** 

;8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 



***************************************************************** 

* *; 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. 



« 



EA3C 


3400 


DPB128D DW 


52 


EA3E 


04 


DB 


4 


EA3F 


0F 


DB 


15 


EA40 


01 


DB 


1 


EA41 


F200 


DW 


242 


EA43 


7F00 


DW 


127 


EA45 


C0 


DB 


0C0H 


EA46 


00 


DB 





EA47 


2000 


DW 


32 


EA49 


0200 


DW 


2 


EA4B 


09 


DB 


9H 



* 

* * 

***************************************************************** 



^ 
^ 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. 



EA4C 


6800 


DPB256D DW 


104 


EA4E 


04 


DB 


4 


EA4F 


0F 


DB 


15 


EA50 


00 


DB 





EA51 


E601 


DW 


486 


EA53 


FF00 


DW 


255 


EA55 


F0 


DB 


0F0H 


EA56 


00 


DB 





EA57 


4000 


DW 


64 


EA59 


0200 


DW 


2 


EA5B 


1A 


DB 


1AH 



* 

WWWW.W.W U.U1.1 !_».•. *. *. , *»I..W **WVSUU.U "*"""• 
♦ * 

***************************************************************** 



EA5C 7800 


DPB512D DW 


120 


EA5E 04 


DB 


4 


EA5F 0F 


DB 


15 


EA60 00 


DB 





EA61 3102 


DW 


561 


EA63 FF00 


DW 


255 


EA65 F0 


DB 


0F0H 


EA66 00 


DB 





EA67 4000 


DW 


64 



?CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 



CP/M MACRO ASSEM 2.0 


#0 


EA69 0200 


DW 


EA6B 3B 


DB 



*** Cbios For CP/M Ver. 2.2 *** 

2 ;OFF 

3BH 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



EA6C 


8000 


DP1024D DW 


128 


EA6E 


04 


DB 


4 


EA6F 


0F 


DB 


15 


EA70 


00 


DB 





EA71 


5702 


DW 


599 


EA73 


FF00 


DW 


255 


EA75 


F0 


DB 


0F0H 


EA76 


00 


DB 





EA77 


4000 


DW 


64 


EA79 


0200 


DW 


2 


EA7B 


7C 


DB 


7CH 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 



• 



***************************************************************** 

* * 

* THE FOLLOWING DPB ' S ARE FOR THE STANDARD FORMAT TO BE * 

* COMPATABLE WITH OLDER VERSIONS OF THE CBIOS. * 

* * 

***************************************************************** 



EA7C 


A002 DPBHD1 DW 


672 


EA7E 


05 


DB 


5 


EA7F 


IF 


DB 


31 


EA80 


01 


DB 


1 


EA81 


DF07 


DW 


2015 


EA83 


FF01 


DW 


511 


EA85 


FF 


DB 


0FFH 


EA86 


FF 


DB 


0FFH 


EA87 


0000 


DW 





EA89 


0100 


DW 


1 


EA8B 


33 


DB 


33H 


EA8C 


A002 DPBHD2 DW 


672 


EA8E 


05 


DB 


5 


EA8F 


IF 


DB 


31 


EA90 


01 


DB 


1 


EA91 


DF07 


DW 


2015 


EA93 


FF01 


DW 


511 


EA95 


FF 


DB 


0FFH 


EA96 


FF 


DB 


0FFH 


EA97 


0000 


DW 





EA99 


6200 


DW 


98 


EA9B 


33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTO;R) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 * 

8 IF DOUBLE SIDED. 

CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 






CP/M macro ASSEM 2.0 



#033 



*** Cbios For CP/M Ver . 2.2 *** 






EA9C A002 DPBHD3 DW 


672 


EA9E 05 


DB 


5 


EA9F IF 


DB 


31 


EAA0 01 


DB 


1 


EAA1 0404 


DW 


1028 


EAA3 FF01 


DW 


511 


EAA5 FF 


DB 


0FFH 


EAA6 FF 


DB 


0FFH 


EAA7 0000 


DW 





EAA9 C300 


DW 


195 


EAAB 33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

LOG2( 

8 IF 



#CPM SECTORS/ PHYSIC AL SECTOiR ) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 
***************************************************************** 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 







HEADER 


MACRO 
DW 


ND,DPB 



• 






DW 
DW 
DW 


0,0,0 

DIRBUF 

DPB 


• 






DW 
DW 


CSV&ND 
ALV&ND 


• 






ENDM 




EAAC « 


DP BASE 


EQU 


5 


• 


0000 # 


DN 


SET 









REPT 


MAXHD 








HEADER 


%DN,DPBHD1 


• 




DN 


SET 
HEADER 


DN+1 
%DN,DPBHD2 






DN 


SET 


DN+1 


# 






HEADER 


%DN,DPBHD3 






DN 


SET 
ENDM 


DN+1 


• 


EAAC+0000 




DW 





EAAE+0000000000 


DW 


0,0,0 




EAB4+F6EE 




DW 


DIRBUF 


• 


EAB6+7CEA 




DW 


DPBHD1 


EAB8+72F0 




DW 


CSV0 




EABA+76EF 




DW 


ALV0 


• 


EABC+0000 




DW 





EABE+000000000S: 


J 


DW 


0,0,0 




EAC4+F6EE 




DW 


DIRBUF 


• 


EAC6+8CEA 




DW 


DPBHD2 




EAC8+6EF1 




DW 


CSV1 




EACA+72F0 




DW 


ALV1 


m 


EACC+0000 




DW 





EACE+000000000fc 


1 


DW 


0,0,0 




EAD4+F6EE 




DW 


DIRBUF 


m 


EAD6+9CEA 




DW 


DPBHD3 



# 



7GENERATE HARD DISK DPH'S FOLLOWED 
; BY FLOPPY DPH'S 



TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATEJl 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 



• 



CP/M MACRO ASSEM 2.0 



#034 



*** Cbios For CP/M Ver . 2.2 **' 



EAD8+EFF1 
EADA+6EF1 



DN 



EADC+0000 

EADE+0000000000 

EAE4+F6EE 

EAE6+0000 

EAE8+3AF2 

EAEA+EFF1 

EAEC = 



DW 


CSV2 


DW 


ALV2 


REPT 


MAXFLOP 


HEADER 


%DN,0 


SET 


DN+1 


ENDM 




DW 





DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV3 


DW 


ALV3 



; DIRECTORY CHECK VECTOR 
? ALLOCATION VECTOR 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

7 DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



BUFFER EQU $ 

************************************************************ 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



EAEC 


801 A PROMPT 


DB 


EAEE 


0A0D0A0D0A 


DB 


EAF4 


4D6F72726F 


DB 


EB03 


36 


DB 


EB04 


32 


DB 


EB05 


4B2043502F 


DB 


EB0C 


32 


DB 


EB0D 


2E 


DB 


EB0E 


32 


DB 


EB0F 


2C20436269 


DB 


EB1B 


322E 


DB 


EB1D 


39 


DB 


EB1E 


2E 


DB 


EB1F 


32 


DB 


EB20 


30 


DB 


EB21 


0A0D 


DB 


EB23 


466F7220 


DB 


EB27 


6120446973 


DB 


EB39 


20616E6420 


DB 


EB3E 


6120 


DB 


EB40 


46756A6974 


DB 


EB4C 


6861726420 


DB 


EB55 


2E 


DB 


EB56 


0A0D0A0D 


DB 


EB5A 


2020202020 


DB 


EB74 


0A0D 


DB 


EB76 


2020202020 


DB 


EB92 


0A0D 


DB 


EB94 


2020202020 


DB 


EBAF 


0A0D 


DB 


EBB1 


00 


DB 



; CLEAN BUFFER AND SCREEN 

jCP/M MEMORY SIZE 
;CP/M VERSION NUMBER 



: CBIOS REVISION NUMBER 



80H, CLEAR 
ACR,ALF,ACR,ALF,ACR,ALF 

'Morrow Designs ' 

'0'+MSIZE/l0 

'0'+(MSIZE MOD 10) 

'K CP/M ' 
CPMREV/l0+'0' 

I « 

• 

(CPMREV MOD 10)+'0' 
' , Cbios rev ' 
REVNUM/l0+'0' , ' . * 
REVNUM MOD 10+' 0' 

• 

MREV/l0+'0' 
MREV MOD 10+' 0* 
ACR,ALF 

'For ' 

'a Disk Jockey 2D/B' 

' and ' 

'a ' 

'Fujitsu M20 ' 

'hard disk' 



ACR,ALF,ACR,ALF 

' THE W6GO/K6HHD LIST' 

ACR,ALF 

' Electronics Enterprises' 

ACR,ALF 

' Rio Linda, California' 

ACR,ALF 

;END OF MESSAGE 

i 
***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 



# 









CP/M MACRO ASSEM 2.0 #035 *** Cbios For CP/M Ver . 2.2 *** 



* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 

;GET A CHARACTER OF THE MESSAGE 

;BUMP TEXT POINTER 

,-TEST FOR END 

; RETURN IF DONE 

;SAVE POINTER TO TEXT 

; OUTPUT CHARACTER IN C 

; OUTPUT THE CHARACTER 

; RESTORE THE POINTER 

; CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 
***************************************************************** 



EBB2 7E 


MESSAGE MOV 


A,M 


EBB3 23 


INX 


H 


EBB4 B7 


ORA 


A 


EBB5 C8 


RZ 




EBB6 E5 


PUSH 


H 


EBB7 4F 


MOV 


C,A 


EBBS CD5CE3 


CALL 


CONOUT 


EBBB El 


POP 


H 


EBBC C3B2EB 


JMP 


MESSAGE 



# 



EBBF 310001 



EBC2 


AF 


EBC3 


32D4E4 


EBC6 


323AE3 


EBC9 


2100FC 


EBCC 


1100F8 


EBCF 


0633 


EBD1 


CDE0E7 


EBD4 


3EC0 


EBD6 


320300 


EBD9 


CDFFEB 


EBDC 


CD34EC 


EBDF 


21ECEA 


EBE2 


CDB2EB 


EBE5 


AF 


EBE6 


32EEEE 


EBE9 


320400 


EBEC 


3280E5 


EBEF 


2103E3 


EBF2 


2201E3 


EBF5 


C382E4 



CBOOT LXI SP,TPA ; SET UP STACK 

; CLEAR COLD BOOT FLAG 

; CLEAR GROUP SELECT BYTE 
OF THE JUMP TABLE. 

;SIZE OF JUMP TABLE 
; COPY TABLE 



; INITIALIZE THE TERMINAL 

; INITIALIZE THE LIST DEVICE 

;PREP FOR SENDING SIGNON MESSAGE 

;SEND THE PROMPT 

; SELECT DISK A 



LXI 


SP,TPA 


XRA 


A 


STA 


CWFLG 


STA 


GROUP 


LXI 


H.DJRAM 


LXI 


D, ORIGIN 


MVI 


B,33H 


CALL 


MOVLOP 


MVI 


A, INTIOBY 


STA 


IOBYTE 


CALL 


TINIT 


CALL 


UNIT 


LXI 


H , PROMPT 


CALL 


MESSAGE 


XRA 


A 


STA 


CPMDRV 


STA 


CDISK 


STA 


FLOPFLG 


LXI 


H.BIOS+3 


SHLD 


BIOS+1 


JMP 


GOCPM 



m 
m 
# 



; PATCH COLD BOOT TO WARM CODE 



* TERMINAL INITILIZATION ROUTINE 

* 



***************************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



# 

# 



* 
* 

* 
* 
* 
* 
* 
* 



THIS INITIALIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO 
DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS 
PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1 . 
THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM 
THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL 
PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. 






CP/M MACRO ASSEM 2.0 #036 *** Cbios For CP/M Ver . 2.2 *** 

i 
**************************************************************** *i 



EBF8 1B7B3F TV950 
EBFB 31373100 



TINIT 



EBFF 


21F8EB 


EC02 


CDB2EB 


EC05 


2AFFFF 


EC08 


2B 


EC09 


7C 


EC0A 


B5 


EC0B 


C208EC 


EC0E 


3A3AE3 


ECU 


F601 


EC13 


D34F (+7) 


EC15 


DB48 


EC17 


DB48 


EC19 


AF 


EC1A 


D34D 


EC1C 


D349 


EC1E 


2A36E3 


EC21 


EB 


EC22 


3E87 


EC24 


D34B 


EC26 


7A 


EC27 


D349 


EC29 


7B 


EC2A 


D348 


EC2C 


3E07 


EC2E 


D34B 


EC30 


AF 


EC31 


D34D 



EC33 


C9 


EC34 


3A3AE3 


EC37 


F603 


EC39 


D34F 


EC3B 


3E80 


EC3D 


D34B 


EC3F 


2A38E3 


EC42 


7C 


EC43 


D349 


EC45 


7D 


EC46 


D348 


EC48 


3E07 


EC4A 


D34B 


EC4C 


DB48 


EC4E 


AF 


EC4F 


D349 



WAITC 



DONE 



LINIT 



DB 
DB 



LXI 
CALL 

LHLD 

DCX 

MOV 

ORA 

JNZ 

LDA 

ORI 

OUT 

IN 

IN 

XRA 

OUT 

OUT 

LHLD 

XCHG 

MVI 

OUT 

MOV 

OUT 

MOV 

OUT 

MVI 

OUT 

XRA 

OUT 

IN 

ANI 

ADI 

STA 

RET 

LDA 

ORI 

OUT 

MVI 

OUT 

LHLD 

MOV 

OUT 

MOV 

OUT 

MVI 

OUT 

IN 

XRA 

OUT 



1BH,7BH,3FH 
■171' ,0 



H,TV950 
MESSAGE 

0FFFFH 

H 

A,H 

L 

WAITC 

GROUP »- O 

CONGRP / 

GRPSEL(>7J 
RBR &*e. 

RBR &W-r 

A 

LSR 45" 

IER +/ 



7TELEVIDEO COMMAND SEQUENCE 



;SET TELEVIDEO 950 TO 19.2KB 



;WAIT FOR TERMINAL 



<\ 



* 



;GET GROUP BYTE 
.•SELECT CONSOLE DEVICE 

; CLEAR RECIEVER BUFFERS 






(G) 



DEFCON 

A, DLAB+WLS1+WLS0+S 



; CLEAR STATUS 
;SET NO INTERRUPTS 
•GET DEFAULT BAUD RATE 






I 



tb~ 



-f>H 



LCR' t* Lis? «m-K'j 

A,D 

DLM Ci'votfasf) +/ 

A,E 

DLL Dt^e* (<■<&) C> 

A,WLS1+WLS0+STB 

LCR ^ ' f 

A 

LSR 

7 

1 

INTIOBY 

IOBYTE 



GROUP O 

LSTGRP 

GRPSEL 

A,DLAB 

LCR 

DEFLST 

A,H 

DLM 

A,L 

DLL 

A, STB+WLS0+WLS1 

LCR 

RBR 

A 

IER 



; ENABLE DIVISOR ACCESS LATCH 



0^ 



?SET THE BAUD RATE IN (DE) 
?SET UPPER DIVISOR 

;SET LOWER DIVISOR 

- 1H 

; CLEAR STATUS REGISTER 

;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE IOBYTE 

;GET GROUP BYTE 

; SELECT LIST DEVICE 

; ACCESS DIVISOR LATCH 

;GET LST: BAUD RATE DIVISOR 

;SET UPPER BAUD RATE 



a,*.* m» ****** J£ r , fi*?*<r 



iJaKD 



h&fr O^T 



; CLEAR INPUT BUFFER 
;NO INTERUPTS 



• 

# 



# 

• 

• 



CP/M MACRO ASSEM 2.0 #037 *** Cbios For CP/M Ver . 2.2 *** j 

EC51 C9 RET i 

EC52 00FF00 DB 0,0FFH,0 

EC55 DS 51 2- ($ -BUFFER) ; MAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 

ECEC DS 512 ; ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 

***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

*************************************************************** 

;CP/M SECTOR # 

;CP/M DRIVE # 

;CP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

; DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

; SECTOR THAT BUFFER BELONGS TO ' 

.•DIRECTORY BUFFER 



EEEC 0000 


CPMSEC 


DW 





EEEE 00 


CPMDRV 


DB 





EEEF 00 


CPMTRK 


DB 





EEF0 0000 


TRUESEC 


DW 





EEF2 00 


BUFDRV 


DB 





EEF3 00 


BUFTRK 


DB 





EEF4 0000 


BUFSEC 


DW 





EEF6 


DIRBUF 


DS 


128 




ALLOC 


MACRO 


ND,AL,CS 




ALV&ND 


DS 


AL 




CSV&ND 


DS 
ENDM 


CS 


0000 # 


DN 


SET 









REPT 


MAXHD 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 
ENDM 


DN+1 


EF76+ 


ALV0 


DS 


252 


F072+ 


CSV0 


DS 





F072+ 


ALV1 


DS 


252 


F16E+ 


CSV1 


DS 





F16E+ 


ALV2 


DS 


129 


F1EF+ 


CSV2 


DS 









REPT 


MAXFLOP 






ALLOC 


%DN,75,64 




DN 


SET 
ENDM 


DN+1 


F1EF+ 


ALV3 


DS 


75 


F23A+ 


CSV3 


DS 


64 



# 
# 



# 









F27A 



END 



CP/M MACRO ASSEM 2.0 



#038 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AACK 


E825 


ACCOK 


000 A 


ACR 


0003 


AETX 


000D 


ALF 


EF76 


ALV0 


F072 


ALV1 


F16E 


ALV2 


FIEF 


ALV3 


E4D5 


AUTOFLG 


0004 


BANK 


D500 


BDOS 


A800 


BIAS 


E300 


BIOS 


EEF2 


BUFDRV 


0080 


BUFF 


EAEC 


BUFFER 


EEF4 


BUFSEC 


EEF3 


BUFTRK 


E718 


BUFWRTN 


E922 


BUILD 


EBBF 


CBOOT 


CD00 


CCP 


0004 


CDISK 


E40C 


CICRT 


E40C 


CIPTR 


E38D 


CITBLE 


F803 


CITTY 


E3F7 


CIUC1 


E40C 


CIUR1 


E40C 


CIUR2 


E4CD 


CLDBOT 


E4B8 


CLDCMND 


001A 


CLEAR 


004A 


CLK 


E58C 


CLOPP 


00D0 


CLRCMD 


FBFC 


CMDREG 


E431 


COCRT 


E4D6 


COLDBEG 


E4D6 


COLDEND 


E3CD 


COLPT 


0004 


COMPLT 


0001 


CONGRP 


E347 


CON IN 


E34D 


CONIN1 


E455 


CONINA 


E35C 


CONOUT 


E468 


CONOUT 1 


E33B 


CONST 


E3CD 


COPTP 


E43C 


COPTR 


E443 


COPTR1 


E395 


COTBLE 


F806 


COTTY 


E3D8 


COUL1 


E3F6 


COUNT 


E3CD 


COUP1 


E3CD 


COUP 2 


E6F8 


CPMDMA 


EEEE 


CPMDRV 


0016 


CPMREV 


EEEC 


CPMSEC 


EEEF 


CPMTRK 


E420 


CSCRT 


E420 


CSPTR 


E341 


CSREADR 


E3BD 


CSRTBLE 


E3B5 


CSTBLE 


E418 


CSTTY 


E403 


CSUC1 


E420 


CSUR1 


E420 


CSUR2 


F072 


CSV0 


F16E 


CSV1 


FIEF 


CSV2 


F23A 


CSV3 


0010 


CTS 


E4D4 


CWFLG 


0048 


DAISI0 


0049 


DAIS 11 


0048 


DAISY0 


0049 


DAISY1 


0008 


DBLSID 


E671 


DCRC 


E7ED 


DECIDE 


E7E9 


DECIDGO 


E336 


DEFCON 


E338 


DEFLST 


0020 


DENABLE 


EEF6 


DIRBUF 


E6C4 


DIVDONE 


E673 


DIVLOG 


E675 


DIVLOGX 


E6B6 


DIVLOOP 


E85B 


DIVSPT 


E85D 


DIVSPTX 


F800 


DJBOOT 


F803 


DJCIN 


F806 


DJCOUT 


F82D 


DJDEN 


F812 


DJDMA 


E333 


DJDRV 


F82A 


DJERR 


F809 


DJHOME 


E5AF 


DJINIT 


E5CD 


DJNEXT 


FC00 


DJRAM 


F815 


D J READ 


F80F 


DJSEC 


F81B 


DJSEL 


F830 


DJSIDE 


F827 


D J STAT 


F80C 


DJTRK 


F821 


DJTSTAT 


F818 


DJWRITE 


0080 


DLAB 


0048 


DLL 


0049 


DLM 


EC30 


DONE 


E51C 


DONOP 


EA6C 


DP1024D 


EA2C 


DP1024S 


EA3C 


DPB128D 


E9FC 


DPB128S 


EA4C 


DPB256D 


EA0C 


DPB256S 


EA5C 


DPB512D 


EA1C 


DPB512S 


EAAC 


DPBASE 


EA7C 


DPBHD1 


EA8C 


DPBHD2 


EA9C 


DPBHD3 


FBF9 


DREG 


0001 


DR 


E92D 


DRIVES 


E627 


DRVHD 


E917 


DRVPTR 


0020 


DRVRDY 


0007 


DSKCLK 


0020 


DSR 


E6D3 


DTSLOP 


0008 


EN INT 


0005 


ENTRY 


E7AA 


FILL 


E580 


FLOPFLG 


E5D2 


FLOPOK 


E717 


FLUSH 


E7D2 


FREAD 


E67C 


GETDPB 


E857 


GETSPT 


E482 


GOCPM 


E33A 


GROUP 


004F 


GRPSEL 


0000 


GZERO 


E87E 


HDADD 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


E929 


HDDISK 


E838 


HDDMA 


E7F5 


HDDRV 


0052 


HDFUNC 


E806 


HDHOME 


0050 


HDORG 


E8E2 


HDPREP 


E864 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


E846 


HDSEC 


E907 


HDSECTR 


E83D 


HDSIDE 


0015 


HDSPT 


0050 


HDSTAT 


E814 


HDTRK 


E822 


HDTRK2 


E899 


HDWRITE 


E923 


HEAD 


E523 


HOME 


0000 


IDBUFF 


0049 


IER 


0040 


INDEX 


00C0 


INTIOBY 


E705 


INTO 


FBF8 


10 


0003 


IOBYTE 


0008 


ISBUFF 


004B 


LCR 


EC34 


LINIT 


E37C 


LIST 


E37F 


LIST1 


E387 


LISTST 


0003 


LOGDSK 


E429 


LSLPT 


004D 


LSR 


E3C5 


LSTBLE 


0003 


LSTGRP 


E39D 


LTBLE 


0001 


MAXFLOP 


0001 


MAXHD 


0048 


MBASE 


00F7 


MDIR 


EBB2 


MESSAGE 


E44E 


MIOIN 


E461 


MIOOUT 


E473 


MIOSTAT 


E6E2 


MOVE 


E7DE 


MOVER 


E7E0 


MOVLOP 


0014 


MREV 


003E 


MSIZE 


004E 


MSR 


E739 


NOADJST 


00FB 


NSTEP 


00FC 


NULL 


3E00 


OFFSETC 


0002 


OPDONE 


F800 


ORIGIN 


E700 


OUTOF 


E377 


PNCH1 


E724 


PREP 


E8C8 


PROCESS 


EAEC 


PROMPT 


0004 


PSTEP 


E3A5 


PTBLE 


E371 


PUNCH 


E3ED 


PWAIT 


0048 


RBR 


E6FB 


RDWR 


E367 


READER 


E6A4 


READ 


E36A 


READERA 


E36D 


READR1 


E42E 


READY 


E6A8 


REDWRT 


0010 


RESTOR 


000A 


RETRIES 


0002 


RETRY 


E72E 


RETRYLP 


E78B 


RETRYOP 


001D 


REVNUM 


0001 


RSECT 


E3AD 


RTBLE 


E884 


RTLOOP 


0001 


S0 


0002 


SI 


0005 


SCENBL 


0200 


SECLEN 


E6E7 


SECPSEC 


E6A9 


SECSIZ 


E52A 


SECTRAN 


E351 


SELDEV 


0049 


SENSESW 


E51D 


SETDMA 


E565 


SETDRV 


E654 


SETDRVl 


E517 


SETSEC 


E525 


SETTRK 


E540 


SIDE A 


E617 


SIDEOK 


E543 


SIDEONE 


E549 


SIDETWO 


E829 


SLOOP 


0003 


SMASK 


E41B 


STAT 


0004 


STB 


E643 


TDELAY 


0048 


THR 


0020 


THRE 


EBFF 


TINIT 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


E532 


TRANFP 


E561 


TRANHD 


EEF0 


TRUESEC 


EBF8 


TV950 


EC08 


WAITC 


E4D7 


WARMBEG 


E4D7 


WARMEND 



• 



# 
# 



CP/M MACRO ASSEM 2.0 #039 *** Cbios For CP/M Ver . 2.2 *** 

E4F4 WARMLOD E506 WARMRD E303 WBOOTE E4D8 WBOOT 0000 WBOT 

000F WENABL 0010 WFAULT 0001 WLS0 0002 WLS1 000B WRESET 

E69D WRITE E70F WRITTYP E509 WRMREAD E83E WSDONE 0005 WSECT 

E8A5 WTLOOP E9BB XLT124 E92E XLT128 E949 XLT256 E97E XLT512 

E695 XLTS E906 ZKEY E66D ZRET 



# 









